home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / pd126.zip / PDID.C < prev   
Text File  |  1992-07-10  |  4KB  |  102 lines
  1. /********************************************************************
  2.         PopDATE - INITIALIZATION DATA
  3.        (c) Copyright 1992 by Omega Point, Inc.
  4.            Author: Ratko V. Tomic
  5. *********************************************************************/
  6.  
  7. #include "cr.h"
  8.  
  9.  
  10. int use_lim=1;    /* Set to 0 if no move_to_lim() with PDK-1 */
  11. int quiet=0;    /* Set to NZ if no waiting for key on 1st screen */
  12.  
  13. /***********************************************************************
  14.            SIGNON SCREEN & ERROR MESSAGES
  15. *************************************************************************/
  16.  
  17. /* Video attributes for signon screen. */
  18.  
  19. char hello_atr[]={0x1b,0x1e,0x1f,0x1C,0x4e,0x19,7,0x17,0x1E,0x13,0x1F,0x1B};
  20. char  mono_atr[]={0x70,0x70,0x70,0x70,0x0f,0x70,7,0x07,0x0F,0x07,0x07,0x07};
  21.  
  22. char first_msg[]="`c`2 `\xc3`]`6`[`@`m  `U`g`[`m`2\
  23. `\xF PopDATE, Ver 1.26 - TSR Calendar `w\
  24. `\xE Copyright (C) 1992 Omega Point, Inc. `w\
  25. `5─`w`0\
  26.   PopDATE is a TSR Calendar written entirely in generic C. The `w\
  27.   secret behind its size (`2TSR < 3.5k`0) and speed is `4 CodeRunneR `0, `w\
  28.   the finest TSR library for C and assembler.  CodeRunneR helps `w\
  29.   you create the first day, with the `1ease of C`0, TSRs rivaling the `w\
  30.   best professional assembler programs in size & speed. `w\
  31. `5─`w\
  32.   `3■`0 CodeRunneR has over `1300 func's`0, hand-crafted in pure assembler. `w\
  33.   `3■`0 Initialization code and data `1AUTO-RELEASED`0 from TSR memory. `w\
  34.   `3■`0 `1Multitasking`0, dynamic `1hot-keys`0, `1scheduler`0, sw/hdw interrupts. `w\
  35.   `3■`0 Load TSR to `1LIM`0/`1UMB`0s. `1Spawn`0/`1swap`0 apps/`1graphics`0 to XMS/EMS/disk. `w\
  36.   `3■`0 Transparent `1DOS`0/file acces. `1Auto-sensed`0 video, new keyboards. `w\
  37.   `3■`0 `1BCD math`0, up to `1248`0 digits. Fast `1background`0, multiport COMs. `w\
  38.   `3■`0 Context sensitive `1hypertext help`0.  Quick-Start `1templates`0. `w\
  39.   `3■`0 `1In-depth`0 tech support, `1debug help`0 22 hours/day, 7 days/week. `w\
  40.   `3■`0 Source for PopDATE `1+ 10`0 other `1\"must-have\"`0 TSR utilities. `w\
  41. `5─`w`0\
  42.  `0 For information call: `2 (508) 877-1819`0  or Fax: `2(508) 877-0915`0  `w\
  43.    `[ `w`6 `r  ";
  44.  
  45.  
  46. /* This is the signon message (uses dspf() control codes) */
  47.  
  48. char signon_scr[]= "`7"
  49.         "█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█`m"
  50.         "█`8    PopDATE 1.26      `7█`m"
  51.         "█`9     ──────────       `7█`m"
  52.         "█`:  Copyright (c) 1992  `7█`m"
  53.         "█`:   Omega Point, Inc.  `7█`m"
  54.         "█`9     ───────────      `7█`m"
  55.         "█`;     Written by       `7█`m"
  56.         "█`;   Ratko V. Tomic     `7█`m"
  57.         "█`9     ───────────      `7█`m"
  58.         "█`8      To Invoke       `7█`m"
  59.         "█`:     Ctl-Shift-D      `7█`m"
  60.         "█`9     ───────────      `7█`m"
  61.         "█`8      To Unload       `7█`m"
  62.         "█`;     POPDATE  /U      `7█`m"
  63.         "█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█`n";
  64.  
  65.  
  66. char already[]="PopDATE already loaded.  Use PopDATE /U to unload";
  67. char unl_ok[]="PopDATE has been unloaded.";
  68. char unl_err[]="PopDATE could not be removed from memory.";
  69.  
  70. /**** CALENDAR BOX & ATTRIBUTES ****/
  71.  
  72. byte txtm[]={0x07,0x0F,0x70,0x70,0x70,0x70}; /* cal_atr[] for mono scr */
  73.  
  74. byte catc[]={0x71,0x17,0x74,7};
  75. byte catm[]={0x70,0x07,0x70,7};
  76.  
  77. char cal_box[]="`0"
  78. "  Mon Tue Wed Thu Fri Sat Sun  `m`1"
  79. "`@█`\x1D█`m`E`0"
  80. " `2\x1B\x1A`0 May 26, 1992 `2\x12`0 12:45:19 PM `3";
  81.  
  82.  
  83. /*************************************************************************
  84.         STANDARD CodeRunner VARIABLES
  85. **************************************************************************/
  86.  
  87. char _tsr_name[]="PopDATE (C) 1992 OP";  /* TSR (c) msg for MM */
  88.  
  89. struct cfg_rec config_block = {
  90.     sizeof(config_block),    /* Configuration block size */
  91.     'P','D','A','T',    /* Program ID string */
  92.     126            /* Program Version 1.26 (must be Non-Zero */
  93.                 /* Other user defined items may follow */
  94.     };
  95.  
  96.  
  97. word hk_list[]={0x20+M_LS+M_LC,0};
  98.  
  99. fp install_list[]={install_hk};
  100.  
  101. word init_data_end=1;
  102.